home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / varie / dito40.lha / DITO / Install < prev    next >
Text File  |  1996-11-14  |  2KB  |  105 lines
  1. ; INSTALLERSCRIPT for DITO 4.0+
  2. ; (C)opyright by Dirk Holtwick, 1996
  3. ; -----------------------------------------
  4.  
  5. (message
  6.    "\nDITO 4.0\n\n"
  7.    "© Dirk Holtwick, 1996\n"
  8.    "MUI © Stefan Stuntz, 1992-1996\n"
  9.    "TextField © Mark Thomas, 1995\n"
  10.    "Config © Adam Daves, 1996\n\n"
  11.    "DITO is a very flexible learning system for "
  12.    "languages. Notice that it is SHAREWARE and that "
  13.    "you have to pay a fee of 30 DM or $20 to the author, if you "
  14.    "want to use it frequently. In the demo version some "
  15.    "functions are not fully functional.\n\n"
  16.    "Enjoy it, Dirk"
  17. )
  18.  
  19. ;
  20. ; dito.library
  21. ; ------------
  22.  
  23. (copylib
  24.    (prompt "Copying dito.library")
  25.    (help @copylib-help)
  26.    (source "dito.library")
  27.    (dest "LIBS:")
  28.    (confirm)
  29. )
  30.  
  31. ;
  32. ; textfield.gadget
  33. ; ----------------
  34.  
  35. (copylib
  36.    (prompt "Copying TextField.gadget")
  37.    (help @copylib-help)
  38.    (source "gadgets/textfield.gadget")
  39.    (dest "SYS:Classes/Gadgets/")
  40.    (confirm)
  41. )
  42.  
  43. ;
  44. ; phonetics.font
  45. ; --------------
  46.  
  47. (set name
  48.    (askbool
  49.       (prompt "Do you want to install the 'phonetics.font' that has"
  50.          " been created to offer a phonetic charset to DITO?")
  51.       (help "It's up to YOU.")
  52.       (default 0)
  53.    )
  54. )
  55.  
  56. (if name
  57.    (copyfiles
  58.       (prompt "Copying font.")
  59.       (help @copyfiles-help)
  60.       (source "fonts/")
  61.       (dest "fonts:")
  62.       (all)
  63.    )
  64. )
  65.  
  66. ;
  67. ; Copy all files
  68. ; --------------
  69.  
  70. (set destname
  71.    (askdir
  72.       (prompt "Where do you want to install DITO (a directory will be created)")
  73.       (help @askdir-help)
  74.       (default "Work:")
  75.    )
  76. )
  77.  
  78. (set destname (tackon destname "DITO"))
  79.  
  80. (makedir
  81.    destname
  82.    (infos)
  83. )
  84.  
  85. (copyfiles
  86.    (prompt "Copying all files")
  87.    (help @copyfiles-help)
  88.    (pattern "~(dito.library|gadgets|fonts|install#?|readme#?)")
  89.    (source "")
  90.    (dest destname)
  91. )
  92.  
  93. ;
  94. ; Modify Startup-Sequence
  95. ; -----------------------
  96.  
  97. (startup "DITO"
  98.    (prompt
  99.       "One ASSIGN has to be added to the \"S:user-startup\" so that your system will be properly configured to use DITO.")
  100.    (help "An assign called DITO: will be added. If you don't use this "
  101.       "option, your system may not work properly on your machine.")
  102.    (command "assign DITO: " destname "\n")
  103. )
  104.  
  105.